home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1999 March
/
EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso
/
earkit
/
mail
/
yam
/
rexx
/
register.rexx
< prev
Wrap
OS/2 REXX Batch file
|
1999-01-01
|
885b
|
24 lines
/*
** $VER: Register.rexx 1.0 (3.11.96)
**
** Written by Marcel Beck <mbeck@access.ch>
**
** This script serves as example for YAM's ARexx interface.
** It scans the archive folder for messages with the subject
** "YAM Registration" and outputs the sender.
**/
OPTIONS RESULTS
ADDRESS YAM
SetFolder 3 /* go to Archive folder */
GetFolderInfo MAX; entries = RESULT /* get number of mail */
DO i=0 TO entries-1 /* scan all mail */
SetMail i /* set topical mail */
GetMailInfo SUBJECT /* ask for subject */
IF RESULT = 'YAM Registration' THEN DO /* criteria accomplished */
GetMailInfo FROM /* ask for sender and */
SAY RESULT /* display it */
END
END